<%

Function rodada_get_prox()

		
		str = "SELECT id from rodadas where status=0 order by id asc LIMIT 1"
  		Set rs = conexao_geral.Execute(str)	
		
		if not rs.eof then 
				id = rs("id")
		else
				id = -1
		End IF
		
		rodada_get_prox = id

End Function

Function rodada_get_atual()

		
		str = "SELECT id from rodadas where status=1 AND simulacao=0 order by id desc LIMIT 1"
  		Set rs = conexao_geral.Execute(str)	
		
		id = 0
		if not rs.eof then 
			
			id = rs("id")
			
		else
		
			id = rodada_novo_rodada()
		
		End If
		
		rodada_get_atual = id
		
End Function

Function rodada_existe_get_atual()

		str = "SELECT id from rodadas where status=1 AND simulacao=0 order by id desc LIMIT 1"
  		Set rs = conexao_geral.Execute(str)	
		
		if not rs.eof then 
			
			rodada_existe_get_atual = TRUE
			
		else
		
			rodada_existe_get_atual = FALSE
			
		End If
		
End Function		


Function rodada_completa()
		
		DIM id_rodada
		
		id_rodada = rodada_get_atual()
		
		str = "SELECT completa from rodadas where id="&id_rodada
  		Set rs = conexao_geral.Execute(str)	
		
		if rs("completa")>=1 then 
			rodada_completa = TRUE
		else
			rodada_completa = FALSE
		End If
		
End Function

Function rodada_completa_id(id_rodada)
		
		str = "SELECT completa from rodadas where id="&id_rodada
  		Set rs = conexao_geral.Execute(str)	
		
		if rs("completa")>=1 then 
			rodada_completa_id = TRUE
		else
			rodada_completa_id = FALSE
		End If
		
End Function

Function rodada_fechada_para_aposta()
		
		DIM id_rodada
		
		id_rodada = rodada_get_atual()
		
		rodada_fechada_para_aposta = rodada_fechada_para_aposta_id_rodada(id_rodada)
		
End Function

Function rodada_fechada_para_aposta_id_rodada(id_rodada)
		
		DIM rs
		
		str = "SELECT completa from rodadas where id="&id_rodada
  		Set rs = conexao_geral.Execute(str)
		
		if not rs.eof then	
		
			if rs("completa")=2 then 
				rodada_fechada_para_aposta_id_rodada = TRUE
			else
				rodada_fechada_para_aposta_id_rodada = FALSE
			End If
			
		Else
		
			rodada_fechada_para_aposta_id_rodada = FALSE
		
		End If
		
End Function

Function rodada_simulada()
		
		DIM id_rodada
		
		id_rodada = rodada_get_atual()
		
		str = "SELECT simulacao from rodadas where id="&id_rodada
  		Set rs = conexao_geral.Execute(str)	
		
		if rs("simulacao")=1 then 
			rodada_simulada = TRUE
		else
			rodada_simulada = FALSE
		End If
		
End Function

Function rodada_simulada_id(id_rodada)
		
		str = "SELECT simulacao from rodadas where id="&id_rodada
  		Set rs = conexao_geral.Execute(str)	
		
		if rs("simulacao")=1 then 
			rodada_simulada_id = TRUE
		else
			rodada_simulada_id = FALSE
		End If
		
End Function


Function rodada_set_simulada()
		
		DIM id_rodada
		
		id_rodada = rodada_get_atual()
		
		str = "UPDATE rodadas SET "
		str = str & "simulacao=1"
		str = str & " WHERE id="&id_rodada
		Set rsI = conexao_geral.Execute(str)	
		
		rodada_set_simulada = 1
		
End Function

Function rodada_fechar()

	rodada_fechar = rodada_set_completa(2)
		
End Function

Function rodada_set_status()
		
		DIM id_rodada
		
		id_rodada = rodada_get_prox()
		
		if id_rodada=-1 then
		
			id_rodada = rodada_novo_rodada()
		
		End If
		
		str = "UPDATE rodadas SET "
		str = str & "status=1"
		str = str & " WHERE id="&id_rodada
		Set rsI = conexao_geral.Execute(str)	
		
		rodada_set_status = 1
		
End Function

Function rodada_set_completa(valor)
		
		DIM id_rodada
		
		id_rodada = rodada_get_atual()
		
		str = "UPDATE rodadas SET "
		str = str & "completa="&valor
		str = str & " WHERE id="&id_rodada
		Set rsI = conexao_geral.Execute(str)	
		
		rodada_set_completa = 1
		
End Function

Function rodada_set_completa_id(valor, id_rodada)
		
		str = "UPDATE rodadas SET "
		str = str & "completa="&valor
		str = str & " WHERE id="&id_rodada
		Set rsI = conexao_geral.Execute(str)	
		
		rodada_set_completa_id = 1
		
End Function

Function rodada_finalizada(id_rodada)
		
		str = "SELECT status, simulacao from rodadas where id="&id_rodada
  		Set rs = conexao_geral.Execute(str)	
		
		if rs("simulacao")=1 AND rs("status")=1 then 
			rodada_finalizada = TRUE
		else
			rodada_finalizada = FALSE
		End If
		
End Function



%>